home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue35 / pageprnt / PAGEPRNT.ZIP / PagePrnt / PgPrnAbt.pas < prev    next >
Pascal/Delphi Source File  |  1997-10-26  |  1KB  |  47 lines
  1. //Uncomment this $DEFINE to produce the shareware version.
  2. //You must also uncomment the line in PagePrnt.
  3. //{$DEFINE PAGEPRINT_SHAREWARE}
  4. unit PgPrnAbt;
  5.  
  6. interface
  7.  
  8. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  9.   Buttons, ExtCtrls;
  10.  
  11. type
  12.   TPgPrnAboutBox = class(TForm)
  13.     Panel1: TPanel;
  14.     ProgramIcon: TImage;
  15.     ProductName: TLabel;
  16.     Copyright: TLabel;
  17.     OKButton: TButton;
  18.     EMail: TLabel;
  19.     WebPage: TLabel;
  20.     Shareware: TLabel;
  21.     Description: TLabel;
  22.     Bevel: TBevel;
  23.     procedure FormCreate(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TPgPrnAboutBox.FormCreate(Sender: TObject);
  35. begin
  36. {$IFDEF PAGEPRINT_SHAREWARE}
  37.      Shareware.Caption:='This version of TPagePrinter is SHAREWARE.';
  38.      Description.Caption:='The registered version is $50 and includes the full source code.  Please send me e-mail to get the latest ordering information.';
  39. {$ELSE}
  40.      Shareware.Caption:='This version of TPagePrinter is REGISTERED.';
  41.      Description.Caption:='Please do not redistribute this version.  The latest shareware and registered versions of TPagePrinter are available from my web page.';
  42. {$ENDIF}
  43. end;
  44.  
  45. end.
  46.  
  47.